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ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 


SEARS aE . 
Peta | 


CCCCCCCC OHH HH MM MM  JIIIII = NN NN SSSSSSSS MM 000000  pDDDDDDD ; 
CCCCCCCC HH HH MM MM  TITIII = NN NN __SSSSSSSS MM 000000 _— DDDDDDDD ; 
CC HH HH MMMM MMMM I] NN NN SS MMMM MMMM 00 00 0D DD ; 
CC HH HH MMMM MMMM I] NN NN 55 MMMM MMMM 00 00 DD DD ; 
CC HH HH MM MM MM I] NNNN NN SS MM 00 00 DD DD 3 
CC HH MM MM MM 1] NNNN NN SS MM MM MM 00 00 DD oD ; 
CC HHHHHHHHHH = MM MH I] NN NN NN SSSSSS MM 00 00 DD DD ; 
CC HHHHHHHHHH MM MM I] mit NN NN  SSSSSS_ MM MM 00 0G DD DD ; 
CC HH HH MM a 1] r= sNNNN SS MM MM 00 00 DD DD ; 
CC HH HH MM a 1] NN NNNN SS MM MM 00 00 0D DD ; 
CC HH HH MM MM I] NN NN SS MM MM 00 00 DD DD ar 3 
CCCCCCCC HH HH MM MM  IIIIII NN NN SSSSSSSS_ MM MM 000000 DDDDDDDD nite | : 
CCCCCCCC HH HH MM MM  [ITIII = NN NN SSSSSSSS) MM MM 000000  DDDDDDDD ina | ; 
| 
| 
LL HII SSSSSSSS 
Li HII SSSSSSSS | 
LL 1] SS = 
LL 1] 5S 
LL I] SS 
LL I] SS | 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS | 
LL I] 5S | 
LL I] SS 
LL I] $$ | 
LLLLLLLLLL ~=sLIII) «= SSSSSSSS | 
LLLLLLLLLE «= sTIII «= SSSSSSSS | 
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EDTSCHMINS#9D = nokeypad insert mode 16-Sep-1984 00:01:56 AX-11 Bliss-32 V4.0-74 P 1 | 
3 1eSep-1984 2:52:86 Lepr ssRCJCRMINSMOD-BL 171 on) 

RAE GSTACIAInGaae « TTOCE SotOre BeteT emed invert ted | 
4 ' Nokeypa nsert mode 

— = 'v04-000' at File: CHMINSMOD.BLI Edit: JBS1009 


BEGIN 
! 
LRRE RRR RRA EERE REAR EEE EEE E EERE EEE EATER AERA ARERR EERERERAERERE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
* 
*® 
® 
: ® 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
!® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
't TRANSFERRED. ® 
z ® 
'® THE gt rig Ms THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
*® 
® 
® 
® 
® 
® 
® 
® 


'® AND SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


MPN 3 3 2 2 I OO OO OOOCOO 


WN "SO OVONAUES WN" OODNOULS WN OVONOU Sw 


't CORPORATION. 


MIEWN —"OODNAUSWN (OO ONOUSWR OVO ONOUSWH= 


° 1 

: 1 

; 1 

H 1 

; 1 

; 1 1 

3 ¥ 1 

ye 1 

Bee 1 

“eae 1 

2:9 1 

Ps. F 1 

‘3 1 

e179 1 

. Y 1 

Pe 1 

a 1 

Py $$ yi 

° .* 
: 2 24 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
: § 0 § : te SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
3 '® | 
. ' e | 
: § 8 : ’ PUTITITITITITITILTT LILI LITTLE LILI I TTT Ti TiTiTiTitiTititittttiT 
: 00 1! 
: § 0030 1 | 
; Fs 0031 1 !+4+ 
3 ; One ' : FACILITY: EDT -- The DEC Standard Editor | 
; 3 0034 1 ! ABSTRACT: 
; F 0035 1! 

; Hs ited : This module implements nokeypad insert mode. 

3 $6 st : : ENVIRONMENT: Runs at any access mode - AST reentrant | 
3 re peee ! AUTHOR: Bob Kushlis, CREATION DATE: Unknown | 
3 62 0042 1 ! MODIFIED BY: 
>; «643 0043 1! 
7: «644 0044 1 ! 1-001 - Original. DJS 04-Feb-1981. This module was created by 
; 5 0045 1! extracting routine INSERT MODE from module CHANGE.BLI. 
; «646 0046 1 ! 1-002 - Regularize headers. JBS 03-Mar-1981 
3; OF 0047 1 ! 1-003 - Add return values. JBS 02-Oct-1981 , | 
; «48 0048 1 ! 1-004 - Don't allow a bare ESC to terminate a multi-line insert. JBS 17-Aug-1982 | 
: | «649 0049 1 ! 1-005 = Set the acesage flag so “'I"' stays on sgcgen. SMB 17-Aug-1982 

ae Bees 1} 1-08 - New screen update logic. JBS 15-Sep-1982 s | 
: 051 1 ! 1-007 = Change the call to screen update and add a LOAD entry poins so this module 
5 26 B226 1! can be displaced by the screen update modules on the pp-1f. JBS 25-Sep-1982 

io 0055 1 ! 1-008 - Change the screen update call again, to reduce the overlay size on the PDP-11. JBS 27-Sep-1982 

3 2¢ poe : 1-009 = Add a parameter to EDTSSCOMB_LN. JBS 28-Dec-1982 

: 56 0056 1 
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EDTSCHMINSMOD EDTSCHMINSMOD - nokeypad insert mode 1-52 -1984 00:01:56 AX-11 Bliss-32 V4.0-74 P | 
Vv04- Declarations 12-8081 382 99:93:38 LeDT.SRe CHAINGMOD' S114 wt (25 
; 58 057 1 XSBTTL ‘Declarations’ 
: § OB IT, ; 
fs 3 039 1 | ABLE OF CONTENTS: | 
.. @ 9061 1 
; 63 O62 REQUIRE "EDTSRC: TRAROUNAM'; 
.) = 0809 1 FORWARD ROUTINE 
; © 05035 1 EDTS$ MOD, ! Process no-keypad insertion 
: 44 F443 : EDTSS$LOAB_CHMINSMOD : NOVALUE; ! Load this module into memory on the PDP-11 
: 69 0906 1 | | 
: 70 507 1! INCLUDE FILES: 
Be: 0508 1} | 
sek: 0509 1 
ee 0510 ] REQUIRE "EDTSRC:EDTREG"; 
; «76 0645 1 
: 0646 1! 
: 76 0647 1 ! MACROS: 
cs oe 0648 1! 
: 78 0649 1! NONE | 
: 79 0650 1! 
; ©80 0651 1 ! EQUATED SYMBOLS: 
; 8 0652 1 | 
; 682 0653 1! NONE 
; «83 0654 1} 
; (B4 0655 1 | OWN STORAGE: | 
; «85 0656 1! 
; «86 0657 1! NONE 
: 87 0658 1} 
; «688 0659 1 ' EXTERNAL REFERENCES: | 
: 89 0660 1! 
3 90 0661 1! In the routine 

} 


! Delete part of the current Line 


AX=11 Oi leanne V4.0-742 
CHMINSMOD.BLI;1 


EDT.SRC 


Process insertions 


tring of characters which may include carriage returns 


s 

Combine the current Line with the one wenedtote’y above it 
Update the Sergen. gusethty displacing this moudle 
Get a character of input 


Text to stay on screen 


Current character pointer 


F 15 
EDTSCHMINSMOD EDTSCHMINSMOD - nokeypad insert mode 19-3007 138% 90:93:36 
v04-000 EDTSSINS_MOD = nokeypad insert mode 14-Sep-1984 12:22:36 
; g o668 } XZSBITL "EDTSSINS_MOD = nokeypad insert mode’ 
s 9% deci 1 GLOBAL ROUTINE EDTSSINS_MOD ! Nokeypad insert mode 
; 0665 1 = 
;. * 0666 1 
; Oo 0667 1 !+4+4 
: 98 0668 1 ! FUNCTIONAL DESCRIPTION: 
; 0669 1! 
; 100 0670 1! This routine implements the no-ke ped insert mode. 
$ 13) pen) : and the delete character until a t RL/Z is seen, then return. 
: 108 bers 1 ! FORMAL PARAMETERS: 
: 104 bese 1! 
; 105 675 1! NONE 
: 106 b678 -z 
: 107 0677 1°! IMPLICIT INPUTS: 
; 108 0678 1! 
: 109 0679 1! EDTS$$G_KPAD 
; 110 0680 1! EDTS$$G_TI_TYP 
“BP bk 0681 1! EDT$$T_LN_BUF 
: Bt 0682 1! EDTSSA_LN_PTR 
g 6 639 068 1! 
: (114 0684 1 ! IMPLICIT OUTPUTS: 
oe 0685 1! 
: 6116 0686 1! NONE 
e Ser 0687 1! 
; (118 0688 1 ! ROUTINE VALUE: 
3; 6119 0689 1! ‘ 
s 120 0690 1! 1 = ok, 0 = end of journal file 
; 121 0691 1! 
3 tee 0692 1 ! SIDE EFFECTS: 
s 123 0693 1! 
: 124 0694 1! NONE 
s 125 0695 1! 
; 126 0696 1 !-- 
s te? 0697 1 
: 128 0698 § BEGIN 
: 129 0699 
; 130 0700 2 EXTERNAL ROUTINE 
s TS 0701 2 EDTSSDEL_CHS : NOVALUE, 
> 132 0702 2 EDTSSINS CHS, ! Insert a 
3s 135 0703 2 EDTS$C LN LUE, ! 
; 134 0704 EDTS$$SC_UPD NOOVERLAY2 : NOVALUE, ' t 
: 13? 8703 EDTSSSTOP_WRI . ! Terminate working 
Se 706 EDTSSTI_INPCH; ! 
» ¥sr 0707 
; 138 0708 SxTERNA, 
: 139 0709 EDTSS$G_MSGFLG, ! 
3; 140 Brio EDTS$$G_KPAD, ' Keypad activated? 
3 (141 711 EDT$$G_TI_TYP, ! Terminal type. 
3 166 ar EDTSST_LN_BUF, ' Current Line buffer 
: 14 71 EDTSS$A_LN_PTR; ! 
3 «61446 714 
3; «6145 715 LOCAL 
3 re at C : BYTE; 
: 148 $718 IF ({.EDTS$G_KPAD NEQ 0) OR (.EDTSS$G_TI_TYP EQL TERM_HCPY)) THEN RETURN (1); 


ne 
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EDTSCHMINSMOD EDTSCHMINSMOD - nokeypad insert mode 18-52 -1984 00:01:56 AX-11 Bliss-32 V4.0-74 P 
04-000 EDISSINS MOD = nokeypad insert mode 12-808 - 1 3be 9929) 538 EDT. SRC Ciainemep ou 144 = ey 
5 149 719 
: 150 720 EDT$$STOP_WKINGMSG (); 
; 1 07 1 EDTS$G_MSGFLG = 1; | 
‘a j 7 § WHILE 1 DO 
: 154 754 BEGIN 
: 13 g 5 EDTS$SC_UPD_NOOVERLAY2 (); | 
: 132 07 ? IF (EDTSSTI_INPCH (C) EQL 0) THEN RETURN (0); | 
; 139 of 3 IF (.C EQL ASC_K_CTRL_Z) THEN EXITLOOP; | 
: 161 731 4 IF (.C EQL ASC_K_DEL) 
; 168 07 é ; THEN = 
: 16 07 
; 164 0734 i IF CHSPTR_EQL (.EDTSSA_LN_PTR, CHSPTR (EDTS$$T_LN_BUF)) 
: 166 0736 ; EDTS$SCOMB_LN (1) 
: 184 et 3 ELSE OTSSDEL ens (CHSPLUS (.EDT$$A_LN_PTR, -1), .EDT$$A_LN PTR) 
° . ° = . ” N 
> 169 0739 3 : Be: =th. 
: 170 0740 ; LSE 
: 171 0741 EDTSS$INS_CHS (C, 1): 
; 17 0748 3 
: 17 0743 2 END; 
: (17% 0744 2 
> 175 0745 2 EDTS$G_MSGFLG = 0; 
> 176 0746 2 RETURN” (1); 
. 96 0747 1 END; ! of routine EDTS$INS_MOD 


-IDENT \V04-000\ 


.EXTRN EDTSSDEL_CHS, EDTS$INS_CHS 
-EXTRN EDTSSCOMB_LN, EDT$$SC_OPD_NOOVERLAY2 
-EXTRN EDTSS$STOP~WKINGMSG 

“EXTRN EDT$$TI_INPCH, EDT$$G_MSGFLG 

“EXTRN EDTS$$G_RPAD, EDT$$G_TY_TYP 

-EXTRN EDTSST_LN_BUF, EDTSSA_CN_PTR 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


000¢ 00000 .ENTRY EDTSSINS_MOD, Save R2,R3 ; 0664 
53 000000006 00 9 90002 VAB EDTS$G_MSGFLG, R3 ; | 
5E 04 C2 00009 SUBL2 #4, SP ; | 
000000006 00 05 0000C TSTL DT$$G_KPAD : 0718 
6E 12 00012 BNEG 
03 000000006 00 01 00014 CMPL EDTSSG_TI_TYP, #3 : 
65 13 0001B BEQL $ ; 
000000006 0 00 FB 001D CALLS #0, EDTSSSTOP_WKINGMSG : 0720 
6 01 DO 00024 MOVL #1, EDT$$G_MSGFLG ; 0721 
000000006 00 90 FB 00027 1$: CALLS #0, EDT$$SC_UPD_NOOVERLAY2 : 0725 
E DD 0002E PUSHL SP ; 0727 
000000006 00 gi Fe 00 0 CALLS #1, EDTS$TI_INPCH ; 
0 D5 00037 TSTL ~—_ RO : 


-TITLE EDTSCHMINSMOD EDTSCHMINSMOD - nokeypad insert m 
| 
| 
| 
| 
| 
| 
| 
| 
| 


EDTSCHMINSMOD  EDTSCHMINSMOD = nokeypad insert 
v04-000 EDTS$1 doe Bnet fs 


C 
SINS_MOD = nokeypad insert mode 


1A 
7F OF 
26 000000006 
50 000000006 
50 
000000006 00 
FF 
000000006 00 
04 


000000006 00 


50 


; Routine Size: 137 bytes, 


: 178 
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Routine Base: _EDTSCODE + 0000 
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és #26 

4$ 

Ce #127 
EDTS$SA_LN_PTR, R2 
EDTS$T-LN-BUF, RO 
Re. RO 

2 

Tl 

fl. EDTS$COMB_LN 
R2 

-1(R2) 

2, EDTSSDEL_CHS 
a 

2. EDTS$INS_CHS 
EDTS$G_MSGFLG 

#1, RO 


» 
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0000 00000 -ENTRY EDTSS$LOAD_CHMINSMOD, Save nothing ; 
04 00002 RET 3 
; Routine Size: 3 bytes, Routine Base: _EDTSCODE + 0089 


16 0785 «#1 
17 0786 1 !<BLF/PAGE> 


| 
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EDTSCHMINSMOD = nokeypad insert mode 1b-52 -1984 00:01:56 VAX-11 Bliss-32 V4.0-742 Page 6 

EDTSSLOAD_CHMINSMOD 7? toed this module into mem 12-80 8-1 8c 09 93:38 LEDT -SROICHMINGMOD BL 14 (4) | 
; 190 0788 } ZSBTTL "EDTSSLOAD_CHMINSMOD - load this module into memory’ ‘ 
$ 186 078) 1 GLOBAL ROUTINE EDTSS$LOAD_CHMINSMOD ! Load this module into memory | ; 
; 18 07 ¢ 1 : NOVALUE = | ‘ 
> 184 07 1 ; 
s 185 gf 4 1 !4+ : 
; 186 755 1 ! FUNCTIONAL DESCRIPTION: | ; 
; #18 Br 28 7 > 
: 188 O757 1! This is a apt bon Te point that loads this module back into memory ; 
3 133 8728 : } in case it was displaced by the screen update moduies. | ; 
: «191 7690 1 ! FORMAL PARAMETERS: : 
136 761 1! : 
; #19 166 1! NONE . 
: 194 0765 1! $ 
3; 195 0764 1°! IMPLICIT INPUTS: : 
; 196 0765 1! 3 
; 197 0766 1! NONE : 
> 198 0767 1! : 
: 199 0768 1 ! IMPLICIT OUTPUTS: ; 
; 200 0769 1! ; 
3 el 0770 1! NONE ; 
3 soe 0771 1! : 
; & 14 1 ! ROUTINE VALUE: ; 
> 204 0773 1! , 
> 205 0774 1! NONE : 
; 206 0775 1! ; 
: gor 0776 1 ! SIDE EFFECTS: : 
; 208 0777 1! é 
: 209 0778 1! NONE ; 
; 210 0779 1! ; 
5 avy 0780 1 !-- ; 
; sig 0781 1 3 
, ef ores 2 BEGIN : 
; 214 0783 2 0 t ; 
s 2s 0784 1 END; ! of routine EDTS$LOAD_CHMINSMOD : 


Se eree 

roror 
mv 
a °) 


Name 
-EDTSCODE 


File 


~$255$DUA28: CED 
~$255$DUA28: CED 


me: 
Elapsed Time: 
Lines/CPU Min 


Used: 


EDTSCHMINSMOD - nokeypad insert mode 16-Sep-1984 
EDTSSLOAD_CHMINSMOD Teed this module into mem 12-Sep- -1 198 99: $3; 38 
Orbs ! END ! of module EDTSCHMINSMOD 
0789 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
140 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN‘2) 
Library Statistics 
coocece - Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
DT.SRCJEDT.L32;1 377 4 1 40 00:00.2 
DT.SRCIPSECTS.L32;1 2 1 50 7 00:00. 
COMMAND QUALIFIERS 


0 data bytes 


Lexenes/CPU-Hin: 10572 
Renory 75 pages 
Compilation Complete 
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